﻿Public Class ChartWindow


    Private Sub showColumnChart()
        Dim valueList As New List(Of KeyValuePair(Of String, Integer))()
        valueList.Add(New KeyValuePair(Of String, Integer)("Developer", 60))
        valueList.Add(New KeyValuePair(Of String, Integer)("Misc", 20))
        valueList.Add(New KeyValuePair(Of String, Integer)("Tester", 50))
        valueList.Add(New KeyValuePair(Of String, Integer)("QA", 30))
        valueList.Add(New KeyValuePair(Of String, Integer)("Project Manager", 40))

        'Setting data for column chart
        columnChart.DataContext = valueList

        ' Setting data for pie chart
        pieChart.DataContext = valueList

        'Setting data for area chart
        areaChart.DataContext = valueList

        'Setting data for bar chart
        barChart.DataContext = valueList

        'Setting data for line chart
        lineChart.DataContext = valueList
    End Sub

    Private Sub ChartWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        showColumnChart()
    End Sub
End Class
